home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c64 / gfx / pscardco.arc / BOOT UTIL.V (.txt) < prev    next >
Commodore BASIC  |  1993-04-28  |  2KB  |  70 lines
  1. 100 R=R+1:IFR=2THENLOAD"UTIL.LDR",8,1:REM(null)
  2. 105 IFR=3THENSYS828:REM(null)
  3. 110 PRINT"[147]   PRINTER INTERFACE ";:REM(null)
  4. 112 PRINT"                      ";:REM(null)
  5. 115 PRINT"    UTILITY PROGRAMS   ":REM(null)
  6. 120 PRINT"[159]BY STEPHEN MEIROWSKY":REM(null)
  7. 125 PRINT"   [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":REM(null)
  8. 130 PRINT"   CARDCO,INC.":REM(null)
  9. 140 PRINT"   313 MATHEWSON":REM(null)
  10. 150 PRINT"   WICHITA,KS 67214":REM(null)
  11. 160 PRINT"[144]COMPUTER: VIC":REM(null)
  12. 165 PRINT"          [163][163][163]":REM(null)
  13. 170 PRINT"1[146][156]: SCREEN DUMP.":REM(null)
  14. 180 PRINT"2[146][156]: KEYED SCREEN DUMP.":REM(null)
  15. 190 PRINT"3[146][156]: GRAPHIC CHARACTER     PRINT.":REM(null)
  16. 192 FORA=1TO3000:NEXT:REM(null)
  17. 194 PRINT"   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":REM(null)
  18. 195 PRINT"    PUSH SPACE BAR [146]":REM(null)
  19. 198 GETA$:IFA$<>" "THEN198:REM(null)
  20. 200 PRINT"[147]LOADING ADDRESS":REM(null)
  21. 205 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":REM(null)
  22. 210 PRINT"0[146]: BLOCK 5 - $BC00":A(0)=48128:REM(null)
  23. 220 PRINT"1[146]: BLOCK 5 - $AC00":A(1)=44032:REM(null)
  24. 230 PRINT"2[146]: AUTO TOP OF BASIC":A(2)=(PEEK(56)-4)*256:REM(null)
  25. 250 INPUT"[145]WHICH ADDRESS  2 [157][157][157][157]";A$:IFA$<"0"ORA$>"2"THEN250:REM(null)
  26. 260 A=VAL(A$):PRINT:PRINT:REM(null)
  27. 270 INPUT"[145][144]PRINTER OPTION  N [157][157][157][157]";A$:IFA$<>"N"ANDA$<>"Y"THEN270:REM(null)
  28. 280 PRINT:D=3:S=0:IFA$="N"THEN310:REM(null)
  29. 290 INPUT"[145]DEVICE  4 [157][157][157][157]";A$:IFA$<"4"ORA$>"5"THEN290:REM(null)
  30. 295 D=VAL(A$):PRINT:REM(null)
  31. 300 INPUT"[145]SECONDARY  0 [157][157][157][157]";A$:S=VAL(A$):IFA$<"0"ORA$>"8"THEN300:REM(null)
  32. 310 PRINT"[147]":OPEN 1,D,S:CMD 1:X=A(A):REM(null)
  33. 312 POKE254,0:Y=X/256-1:POKE255,Y:POKE1018,Y-15:REM(null)
  34. 315 IFX<32768THENPOKE56,X/256:POKE55,0:REM(null)
  35. 320 PRINT"SCREEN DUMP:            SYS"X:REM(null)
  36. 330 PRINT"INIT KEYED SCREEN DUMP: SYS"X+3:REM(null)
  37. 340 PRINT"EXIT KEYED SCREEN DUMP: SYS"X+6:REM(null)
  38. 350 PRINT"INIT CHARACTER PRINT:   SYS"X+9:REM(null)
  39. 360 PRINT"EXIT CHARACTER PRINT:   SYS"X+12:REM(null)
  40. 370 PRINT"REVERSE SCREEN:         POKE"X+18",S":REM(null)
  41. 375 PRINT"REVERSE CHARACTER:      POKE"X+19",C":REM(null)
  42. 380 PRINT"FORCE FLAG:             POKE"X+20",F":REM(null)
  43. 390 PRINT"KEY CHARACTER:          POKE"X+21",K":REM(null)
  44. 392 PRINT"HEX DUMP:               POKE"X+22",H":REM(null)
  45. 394 PRINT"DEVICE#:                POKE"X+23",DV":REM(null)
  46. 396 PRINT"SECONDARY ADDRESS:      POKE"X+24",SA":REM(null)
  47. 400 PRINT#1:CLOSE1:REM(null)
  48. 410 PRINT:PRINT"    PUSH SPACE BAR[146]";:REML
  49. 415 PRINT:PRINT"     TO CONTINUE[146]":REM(null)
  50. 420 GETA$:IFA$<>" "THEN420:REM(null)
  51. 500 PRINT"[147]TYPE OF PRINTER":REM(null)
  52. 505 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":REM(null)
  53. 510 PRINT"0[146]: GEMINI-10/GEMINI-15":REM(null)
  54. 520 PRINT"1[146]: EPSON MX-80/FX-80":REM(null)
  55. 530 PRINT"2[146]: PROWRITER 8510":REM(null)
  56. 540 INPUT"[145]WHICH PRINTER  0 [157][157][157][157]";P$:IFP$<"0"ORP$>"3"THEN540:REM(null)
  57. 560 IFP$="0"THENPOKE1021,42:P$="G":REM(null)
  58. 570 IFP$="1"THENPOKE1021,42:P$="E":REM(null)
  59. 580 IFP$="2"THENPOKE1021,106:P$="P":REM(null)
  60. 590 PRINT:PRINT"SINGLE OR DOUBLE":REM(null)
  61. 592 INPUT"DENSITY";D$:D$=LEFT$(D$,1):IFD$<>"S"ANDD$<>"D"THEN590:REM(null)
  62. 594 P=128:IFD$="S"THENP=0:REM(null)
  63. 596 POKE1020,P:REM(null)
  64. 600 PRINT"PUSH SPACE BAR TO LOAD":REM(null)
  65. 610 GETA$:REM(null)
  66. 611 ZZ=ZZ+1:IFZZ=50THENPRINT"[145][145]";:GOTO600:REM(null)
  67. 612 IFZZ=100THENPRINT"[145][145][146]";:ZZ=0:GOTO600:REM(null)
  68. 614 IF A$<>" "THEN610:REM(null)
  69. 620 PRINT"[147]":LOAD"PS."+P$+"."+D$+".V",8,1:REM(null)
  70.